library ( pamr );
source ( "{$app_root}/cgi-lib/R/ep.io.R" );

src="{$src}";
tgt="{$tgt}";
K={$K};

M <- ep.readBin ( src );
O <- pamr.knnimpute ( list(x=M), k=K );
ep.writeBin ( O$x, tgt );
